﻿Public Class DTOTimetable

    Dim timetableNo As String

    ' expriration date from format yyyyMMdd
    Dim exFrom As String

    ' expiration date to format yyyyMMdd
    Dim exTo As String

    Dim timetableName As String

    Dim abreviation As String

    Dim workFrom As String

    Dim workTo As String

    Dim delimitation As String

    Dim midFrom As String

    Dim midTo As String

    Dim unit As String

    Dim otUnit As String

    Dim dtRestTime As DataTable

    Dim createDateTime As DateTime

    Dim updateDateTime As DateTime

    Public Property CreateDateTimeProperty() As Date
        Get
            Return createDateTime
        End Get
        Set(ByVal value As Date)
            createDateTime = value
        End Set
    End Property

    Public Property UpdateDateTimeProperty() As Date
        Get
            Return updateDateTime
        End Get
        Set(ByVal value As Date)
            updateDateTime = value
        End Set
    End Property

    ''' <summary>
    ''' timetable no
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property TimetableNoProperty() As String
        Get
            Return timetableNo
        End Get
        Set(ByVal value As String)
            timetableNo = value
        End Set
    End Property

    ''' <summary>
    '''   expriration date from format yyyyMMdd
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property ExFromProperty() As String
        Get
            Return exFrom
        End Get
        Set(ByVal value As String)
            exFrom = value
        End Set
    End Property

    ''' <summary>
    '''    expiration date to format yyyyMMdd
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property ExToProperty() As String
        Get
            Return exTo
        End Get
        Set(ByVal value As String)
            exTo = value
        End Set
    End Property

    Public Property TimetableNameProperty() As String
        Get
            Return timetableName
        End Get
        Set(ByVal value As String)
            timetableName = value
        End Set
    End Property

    Public Property AbreviationProperty() As String
        Get
            Return abreviation
        End Get
        Set(ByVal value As String)
            abreviation = value
        End Set
    End Property

    Public Property WorkFromProperty() As String
        Get
            Return workFrom
        End Get
        Set(ByVal value As String)
            workFrom = value
        End Set
    End Property

    Public Property WorkToProperty() As String
        Get
            Return workTo
        End Get
        Set(ByVal value As String)
            workTo = value
        End Set
    End Property

    Public Property DelimitationProperty() As String
        Get
            Return delimitation
        End Get
        Set(ByVal value As String)
            delimitation = value
        End Set
    End Property

    Public Property MidToProperty() As String
        Get
            Return midTo
        End Get
        Set(ByVal value As String)
            midTo = value
        End Set
    End Property

    Public Property MidFromProperty() As String
        Get
            Return midFrom
        End Get
        Set(ByVal value As String)
            midFrom = value
        End Set
    End Property

    Public Property UnitProperty() As String
        Get
            Return unit
        End Get
        Set(ByVal value As String)
            unit = value
        End Set
    End Property

    Public Property OtUnitProperty() As String
        Get
            Return otUnit
        End Get
        Set(ByVal value As String)
            otUnit = value
        End Set
    End Property

    Public Property DtRestTimeProperty() As DataTable
        Get
            Return dtRestTime
        End Get
        Set(ByVal value As DataTable)
            dtRestTime = value
        End Set
    End Property

    Public Sub New()

        ' create new data table rest time
        dtRestTime = New DataTable()

        'add column rest from
        dtRestTime.Columns.Add("Rest From")

        'add colum rest to
        dtRestTime.Columns.Add("Rest To")

    End Sub
End Class
